home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level2 / caustics.vib < prev    next >
Encoding:
Text File  |  2002-10-07  |  1.2 KB  |  34 lines
  1. Sequence [ FirstFrame 0 AnimationLength 250 ]
  2.  
  3. static dt = TWO_PI / AnimationLength
  4. static dr = 360 / AnimationLength
  5.  
  6. Options [ AdaptiveThreshold 0.0015 ]
  7.  
  8. Camera [ (16*sin(CurrentFrame*dt),7,-16*cos(CurrentFrame*dt)),(0,1.5,0),(0,1,0) FieldOfView 35 Format(320,240) FrameAspectRatio 4/3 ]
  9.  
  10. SpotLight [ (-2,10,-12),(0,2,0),8,12,0 MediaInteraction  Decay LINEAR  Intensity '1,1,1'*45 ]
  11. SpotLight [ (1,9,15),(0,2,0),8,12,0 MediaInteraction  Decay LINEAR  Intensity '1,1,1'*45 ]
  12.  
  13. Photons(0, 0.42, 0)
  14. Media(MIE, 40, 15, 0.2, 0.1)
  15.  
  16. Shape [ Box((-2.5, -0.1, -0.4), (2.5, 5.5, 0.4)) mirror Rotate(0, dr*CurrentFrame, 0) ]
  17.  
  18. Shape [ Disk((0, 0, 0), (0, 1, 0), 150) ground ]
  19.  
  20. Shape [ Sphere((2.75, .6, -4.5), .6) glass_Y ]
  21. Shape [ Sphere((0.5, .6, -6), .6) glass_Y ]
  22. Shape [ Sphere((-3, .6, -3.5), .6) glass_Y ]
  23.  
  24. Shape [ Cone((-1.5,0,-4), 0.5, (-1.5,2,-4), 0.15) glass_R ]
  25. Shape [ Sphere((-1.5, 2.3, -4), 0.35)  glass_R ]
  26.  
  27. Shape [ Cone((0,0,-3.5), 0.5, (0,2,-3.5), 0.15) glass_G ]
  28. Shape [ Sphere((0, 2.3, -3.5), 0.35)  glass_G ]
  29.  
  30. Shape [ Cone((1.5,0,-4.5), 0.5, (1.5,2,-4.5), 0.15) glass_B ]
  31. Shape [ Sphere((1.5, 2.3, -4.5), 0.35)  glass_B ]
  32.  
  33. Shape [ Superquadric(0.3, 0.3)  glass_C  Rotate(0, 25, 0) Translate(0, 1, 4) ]
  34.